home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / graphics / stickman.frm < prev    next >
Text File  |  1993-05-16  |  5KB  |  158 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "StickMan Animation Demonstration"
  4.    ClientHeight    =   1245
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1770
  7.    ClientWidth     =   7425
  8.    Height          =   1935
  9.    Icon            =   STICKMAN.FRX:0000
  10.    Left            =   1035
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1245
  14.    ScaleWidth      =   7425
  15.    Top             =   1140
  16.    Width           =   7545
  17.    Begin Timer Timer1 
  18.       Enabled         =   0   'False
  19.       Interval        =   50
  20.       Left            =   3450
  21.       Top             =   345
  22.    End
  23.    Begin PictureBox Picture3 
  24.       AutoSize        =   -1  'True
  25.       BorderStyle     =   0  'None
  26.       Height          =   480
  27.       Left            =   2310
  28.       Picture         =   STICKMAN.FRX:0302
  29.       ScaleHeight     =   480
  30.       ScaleWidth      =   480
  31.       TabIndex        =   2
  32.       Top             =   735
  33.       Visible         =   0   'False
  34.       Width           =   480
  35.    End
  36.    Begin PictureBox Picture1 
  37.       AutoSize        =   -1  'True
  38.       BorderStyle     =   0  'None
  39.       Height          =   480
  40.       Left            =   0
  41.       Picture         =   STICKMAN.FRX:0604
  42.       ScaleHeight     =   480
  43.       ScaleWidth      =   480
  44.       TabIndex        =   0
  45.       Top             =   780
  46.       Visible         =   0   'False
  47.       Width           =   480
  48.    End
  49.    Begin PictureBox Picture2 
  50.       AutoSize        =   -1  'True
  51.       BorderStyle     =   0  'None
  52.       Height          =   480
  53.       Left            =   1005
  54.       Picture         =   STICKMAN.FRX:0906
  55.       ScaleHeight     =   480
  56.       ScaleWidth      =   480
  57.       TabIndex        =   1
  58.       Top             =   765
  59.       Visible         =   0   'False
  60.       Width           =   480
  61.    End
  62.    Begin Menu FileMenu 
  63.       Caption         =   "&File"
  64.       Begin Menu FileWalk 
  65.          Caption         =   "&Walk"
  66.          Index           =   0
  67.          Visible         =   0   'False
  68.       End
  69.       Begin Menu FileReset 
  70.          Caption         =   "&Reset"
  71.       End
  72.       Begin Menu FileSep 
  73.       End
  74.       Begin Menu FileExit 
  75.          Caption         =   "E&xit"
  76.       End
  77.    End
  78. End
  79. Option Explicit
  80.  
  81. Dim num As Integer
  82.  
  83. Sub FileExit_Click ()
  84.     End
  85. End Sub
  86.  
  87. Sub FileReset_Click ()
  88.     ' Make sure all our pictures start at the left and
  89.     ' make the first one visible...
  90.     ' Also, enable the "walk" menu item
  91.     picture1.Left = 0
  92.     picture2.Left = 0
  93.     picture3.Left = 0
  94.     picture1.Top = 750
  95.     picture2.Top = 750
  96.     picture3.Top = 750
  97.     picture1.Visible = True
  98.     picture2.Visible = False
  99.     picture3.Visible = False
  100.     FileWalk(0).Caption = "&Walk"
  101.     FileWalk(0).Visible = True
  102.     FileWalk(0).Enabled = True
  103.     num = 1
  104. End Sub
  105.  
  106. Sub FileWalk_Click (index As Integer)
  107.     If FileWalk(0).Caption = "&Walk" Then
  108.         ' Time to start walking.
  109.         timer1.Enabled = True
  110.         FileWalk(0).Caption = "&Stop"
  111.     Else
  112.         ' Time to stop walking.
  113.         timer1.Enabled = False
  114.         FileWalk(0).Caption = "&Walk"
  115.     End If
  116. End Sub
  117.  
  118. Sub Form_Load ()
  119.     FileReset_Click
  120. End Sub
  121.  
  122. Sub Timer1_Timer ()
  123.     Const INCREMENT = 100
  124.     ' First, see which picture is currently visible...
  125.     Select Case num
  126.           Case 1
  127.             ' Move the next picture over, turn us off, and
  128.             ' turn the next picture on...
  129.             picture1.Left = picture1.Left + INCREMENT
  130.             picture3.Visible = False
  131.             picture1.Visible = True
  132.           Case 2
  133.             ' Move the next picture over, turn us off, and
  134.             ' turn the next picture on...
  135.             picture2.Left = picture1.Left + INCREMENT
  136.             picture1.Visible = False
  137.             picture2.Visible = True
  138.           Case 3
  139.             ' Move the next picture over, turn us off, and
  140.             ' turn the next picture on...
  141.             picture3.Left = picture1.Left + INCREMENT
  142.             picture2.Visible = False
  143.             picture3.Visible = True
  144.     End Select
  145.  
  146.     ' Now, make sure we keep track of which picture is visible
  147.     num = num + 1
  148.     If num > 3 Then num = 1
  149.  
  150.     ' Check to see if we are off the edge of the form.
  151.     If picture1.Left > Form1.ScaleWidth Then
  152.         FileWalk_Click (0) ' Pretend like the user pulled "stop"
  153.         FileWalk(0).Enabled = False ' Disable the Walk option until reset
  154.     End If
  155.  
  156. End Sub
  157.  
  158.